Problem med decimaltecknet..

23 juni, 2010

Hur ser URL'en ut i FF resp IE om du gör om formen till GET istället för POST?

23 juni, 2010

Hur ser URL'en ut i FF resp IE om du gör om formen till GET istället för POST?

MSIE:

http://localhost/printlabels.asp?LeftMargin=4.44&TopMargin=12.2&LabelWidth=66.6&LabelHeight=25.1&valjnamnd=Activa&Printlabelok=Jepp

Firefox:

http://localhost/printlabels.asp?LeftMargin=4.44&TopMargin=12.2&LabelWidth=66.6&LabelHeight=25.1&valjnamnd=Activa&Printlabelok=Jepp

23 juni, 2010

Anropen ser exakt likadana ut. Får du samma skillnad mellan IE of FF om du kör GET? I så fall måste det vara något i httpheadern som talar om för servern hur den ska konvertera talen.

23 juni, 2010

Anropen ser exakt likadana ut. Får du samma skillnad mellan IE of FF om du kör GET? I så fall måste det vara något i httpheadern som talar om för servern hur den ska konvertera talen.

När jag skickar över data med GET får jag 0 (0) i mina variabler jag lagt ut på mottagande sida oavsett läsare... Sätter jag tillbaka POST fungerar det som tidigare.

23 juni, 2010

När jag skickar över data med GET får jag 0 (0) i mina variabler jag lagt ut på mottagande sida oavsett läsare... Sätter jag tillbaka POST fungerar det som tidigare.

Jag börjar fundera på om MSIE 8 är buggig.... Jag har börjat få felmeddelanden om att "Internet Explorer har slutat fungera"....

23 juni, 2010

Detta funkar för mig (då dock utan databas eller textfil som källa):

221172a.asp (formuläret):

<%
Response.LCID = 1033

Dim ServerPath
ServerPath =Server.MapPath(".")

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Tromandata"
SQLQuery = "SELECT Distinct NämndStyrelse from TabNämndStyrelse"
Set Nlist = OBJdbConnection.Execute(SQLQuery)
If Not Nlist.EOF Then
Do Until Nlist.EOF
	sNM = Nlist("NämndStyrelse")
	strNamndOptions = strNamndOptions & "<Option value=""" & sNM & """>" & sNM & "</option>"&vbCrLF
	Nlist.MoveNext
Loop
End If
Set Nlist = Nothing
OBJdbConnection.Close
Set OBJdbConnection = Nothing

Set cn1 = Server.CreateObject("ADODB.Connection")
cn1.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};dbq="&ServerPath&";Extensions=asc,csv,tab,txt;"
startqry= "SELECT * FROM label_settings_DO_NOT_EDIT.txt"
Set fran_textfilen = cn1.Execute(startqry) 
Do While Not fran_textfilen.EOF
tmpVal = fran_textfilen("value")
Select Case fran_textfilen("opt")
	Case "LeftMargin" LeftMargin = tmpVal
	Case "TopMargin" TopMargin = tmpVal
	Case "LabelWidth" LabelWidth = tmpVal
	Case "LabelHeight" LabelHeight = tmpVal
End Select
fran_textfilen.MoveNext
Loop
Set fran_textfilen = Nothing
cn1.close
Set cn1 = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>221172a</title>
</head>

<body>
<form action="221172b.asp" method="POST" enctype="application/x-www-form-urlencoded">
LeftMargin: <input type="text" name="LeftMargin" value="<%=LeftMargin%>"><br>
TopMargin: <input type="text" name="TopMargin" value="<%=TopMargin%>"><br>
LabelWidth: <input type="text" name="LabelWidth" value="<%=LabelWidth%>"><br>
LabelHeight: <input type="text" name="LabelHeight" value="<%=LabelHeight%>"><br>
Nämnd:
<select name="valjnamnd">
<% =strNamndOptions %>
</select><br>
<input type="submit" name="Printlabelok" value="Jepp">
</form>
</body>
</html>

221172b.asp (pdf-skaparen):

<% Response.LCID = 1033 %>
<!--#include virtual="/fpdf/fpdf.asp"-->
<%
qsnamnd = Trim(Request.Form("valjnamnd")&" ")
LeftMargin = Trim(Request.Form("LeftMargin")&" ")
TopMargin = Trim(Request.Form("TopMargin")&" ")
LabelWidth = Trim(Request.Form("LabelWidth")&" ")
LabelHeight = Trim(Request.Form("LabelHeight")&" ")

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Tromandata"

SQLQuery = "" &_
"SELECT "&_
"	P.[förnamn] as fornamn, P.Efternamn, "&_
"	P.Adressbost, P.PostNrBost, P.PostortBost as postort "&_
"FROM "&_
"	tabPerson P, "&_
"	tabUppdrag U, "&_
"	[TabNämndStyrelse] NS "&_
"WHERE "&_
"	P.EjInternet=0 "&_
"	AND U.NämndStyrelse = NS.NämndStyrelse "&_
"	AND P.Inr = U.Inr "&_
"	AND NS.NämndStyrelse = " & "'"& qsNamnd & "' "&_
"	AND P.passiv = 0 "&_
"ORDER BY "&_
"	P.Efternamn ASC"
Set DetailStyrelse = OBJdbConnection.Execute(SQLQuery)

Set pdf = CreateJsObject("FPDF")
pdf.CreatePDF "P","mm","a4"
pdf.Open()
pdf.AddPage()
pdf.SetFont "Arial","B",10
pdf.SetMargins 0,0
pdf.SetAutoPageBreak(0)
x = 0
y = 0

LabelText = "Ledamöter i" & laaa & chr(10) & qsnamnd

AbsX = LeftMargin + ((LabelWidth + 4.22) * x)
AbsY = TopMargin + (LabelHeight * y)
pdf.SetXY AbsX+3,AbsY+3
pdf.MultiCell LabelWidth-8,4.5,LabelText,0,L
x = 1


Do While NOT Detailstyrelse.EOF
strFirstName = Trim(DetailStyrelse("fornamn"))
strLastName = Trim(DetailStyrelse("Efternamn"))
strStreet = Trim(DetailStyrelse("adressbost"))
strZipCode = Trim(DetailStyrelse("PostNrBost"))
strCity = Trim(DetailStyrelse("Postort"))

LabelText = strFirstName&" "& strLastName & chr(10) & strStreet & chr(10) & strZipCode &" " & strCity

AbsX = LeftMargin + ((LabelWidth + 4.22) * x)
AbsY = TopMargin + (LabelHeight * y)
pdf.SetXY AbsX+3,AbsY+3
pdf.MultiCell LabelWidth-8,4.5,LabelText,0,L
x=x+1
if (x=3) then
	y=y+1
	x = 0
	if (y = 10) then
		x = 0
		y = 0
		pdf.AddPage()
	end if
end if
Detailstyrelse.MoveNext
Loop

pdf.Output()
Set pdf = Nothing

OBJdbConnection.Close
Set OBJdbConnection = Nothing
%>

Filerna: 221172.zip

23 juni, 2010

Detta funkar för mig (då dock utan databas eller textfil som källa):

221172a.asp (formuläret):

<%
Response.LCID = 1033

Dim ServerPath
ServerPath =Server.MapPath(".")

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Tromandata"
SQLQuery = "SELECT Distinct NämndStyrelse from TabNämndStyrelse"
Set Nlist = OBJdbConnection.Execute(SQLQuery)
If Not Nlist.EOF Then
Do Until Nlist.EOF
	sNM = Nlist("NämndStyrelse")
	strNamndOptions = strNamndOptions & "<Option value=""" & sNM & """>" & sNM & "</option>"&vbCrLF
	Nlist.MoveNext
Loop
End If
Set Nlist = Nothing
OBJdbConnection.Close
Set OBJdbConnection = Nothing

Set cn1 = Server.CreateObject("ADODB.Connection")
cn1.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};dbq="&ServerPath&";Extensions=asc,csv,tab,txt;"
startqry= "SELECT * FROM label_settings_DO_NOT_EDIT.txt"
Set fran_textfilen = cn1.Execute(startqry) 
Do While Not fran_textfilen.EOF
tmpVal = fran_textfilen("value")
Select Case fran_textfilen("opt")
	Case "LeftMargin" LeftMargin = tmpVal
	Case "TopMargin" TopMargin = tmpVal
	Case "LabelWidth" LabelWidth = tmpVal
	Case "LabelHeight" LabelHeight = tmpVal
End Select
fran_textfilen.MoveNext
Loop
Set fran_textfilen = Nothing
cn1.close
Set cn1 = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>221172a</title>
</head>

<body>
<form action="221172b.asp" method="POST" enctype="application/x-www-form-urlencoded">
LeftMargin: <input type="text" name="LeftMargin" value="<%=LeftMargin%>"><br>
TopMargin: <input type="text" name="TopMargin" value="<%=TopMargin%>"><br>
LabelWidth: <input type="text" name="LabelWidth" value="<%=LabelWidth%>"><br>
LabelHeight: <input type="text" name="LabelHeight" value="<%=LabelHeight%>"><br>
Nämnd:
<select name="valjnamnd">
<% =strNamndOptions %>
</select><br>
<input type="submit" name="Printlabelok" value="Jepp">
</form>
</body>
</html>

221172b.asp (pdf-skaparen):

<% Response.LCID = 1033 %>
<!--#include virtual="/fpdf/fpdf.asp"-->
<%
qsnamnd = Trim(Request.Form("valjnamnd")&" ")
LeftMargin = Trim(Request.Form("LeftMargin")&" ")
TopMargin = Trim(Request.Form("TopMargin")&" ")
LabelWidth = Trim(Request.Form("LabelWidth")&" ")
LabelHeight = Trim(Request.Form("LabelHeight")&" ")

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Tromandata"

SQLQuery = "" &_
"SELECT "&_
"	P.[förnamn] as fornamn, P.Efternamn, "&_
"	P.Adressbost, P.PostNrBost, P.PostortBost as postort "&_
"FROM "&_
"	tabPerson P, "&_
"	tabUppdrag U, "&_
"	[TabNämndStyrelse] NS "&_
"WHERE "&_
"	P.EjInternet=0 "&_
"	AND U.NämndStyrelse = NS.NämndStyrelse "&_
"	AND P.Inr = U.Inr "&_
"	AND NS.NämndStyrelse = " & "'"& qsNamnd & "' "&_
"	AND P.passiv = 0 "&_
"ORDER BY "&_
"	P.Efternamn ASC"
Set DetailStyrelse = OBJdbConnection.Execute(SQLQuery)

Set pdf = CreateJsObject("FPDF")
pdf.CreatePDF "P","mm","a4"
pdf.Open()
pdf.AddPage()
pdf.SetFont "Arial","B",10
pdf.SetMargins 0,0
pdf.SetAutoPageBreak(0)
x = 0
y = 0

LabelText = "Ledamöter i" & laaa & chr(10) & qsnamnd

AbsX = LeftMargin + ((LabelWidth + 4.22) * x)
AbsY = TopMargin + (LabelHeight * y)
pdf.SetXY AbsX+3,AbsY+3
pdf.MultiCell LabelWidth-8,4.5,LabelText,0,L
x = 1


Do While NOT Detailstyrelse.EOF
strFirstName = Trim(DetailStyrelse("fornamn"))
strLastName = Trim(DetailStyrelse("Efternamn"))
strStreet = Trim(DetailStyrelse("adressbost"))
strZipCode = Trim(DetailStyrelse("PostNrBost"))
strCity = Trim(DetailStyrelse("Postort"))

LabelText = strFirstName&" "& strLastName & chr(10) & strStreet & chr(10) & strZipCode &" " & strCity

AbsX = LeftMargin + ((LabelWidth + 4.22) * x)
AbsY = TopMargin + (LabelHeight * y)
pdf.SetXY AbsX+3,AbsY+3
pdf.MultiCell LabelWidth-8,4.5,LabelText,0,L
x=x+1
if (x=3) then
	y=y+1
	x = 0
	if (y = 10) then
		x = 0
		y = 0
		pdf.AddPage()
	end if
end if
Detailstyrelse.MoveNext
Loop

pdf.Output()
Set pdf = Nothing

OBJdbConnection.Close
Set OBJdbConnection = Nothing
%>

Filerna: 221172.zip

Fan vad snyggt du kodar! Ok. Jag laddar ner och testar hemma. Stort tack! Lämnar rapport imorgon.

Roger

23 juni, 2010

:blush: tack!

Mjo, jag städade upp koden lite för att få överblick samt få bort så mycket felkällor som möjligt.

Det borde som sagt funka, annars får du höra av dig.

Här är de filer jag använde för testning: 221172-TEST.zip

(dvs. utan beroende av textfilen eller databasen)

24 juni, 2010

tack!

Mjo, jag städade upp koden lite för att få överblick samt få bort så mycket felkällor som möjligt.

Det borde som sagt funka, annars får du höra av dig.

Här är de filer jag använde för testning: 221172-TEST.zip

(dvs. utan beroende av textfilen eller databasen)

Ett tag var jag inne på att skippa decimalerna, men tjurigt vägrade jag. Jag kan meddela att din kod fungerar alldeles förträffligt. Jag får ta av mig hatten och tacka för fantastiskt bra hjälp.

/Roger

24 juni, 2010

Skam den som ger sig :thumbsup:

Som du ser så lönar det alltid att försöka tänka till före och försöka ha så ren kod som möjligt. KISS är en grundregel jag alltid försöker hålla mig till, oavsett om det är kodning eller annat här i livet. Välj standard och håll dig till den.

Problem med decimaltecknet..

Rekommendera Poster

gip

Länk till kommentar

Dela på andra webbplatser

Roger W

Länk till kommentar

Dela på andra webbplatser

gip

Länk till kommentar

Dela på andra webbplatser

Roger W

Länk till kommentar

Dela på andra webbplatser

Roger W

Länk till kommentar

Dela på andra webbplatser

Cluster

Länk till kommentar

Dela på andra webbplatser

Roger W

Länk till kommentar

Dela på andra webbplatser

Cluster

Länk till kommentar

Dela på andra webbplatser

Roger W

Länk till kommentar

Dela på andra webbplatser

Cluster

Länk till kommentar

Dela på andra webbplatser

Arkiverat

Vem är online 0 Medlemmar, 0 anonym, 19 gäster (Visa hela listan)

Populära medlemmar

Publika meddelanden

Senaste som Tittar

Senaste inlägg

Forum

Aktivitet

pcforalla.se