Digitproblem!

Imar · August 28th, 2003, 08:31 AM

Well, in that case (if the INSERT seems to work correctly), simply change the value of Box_ID right before you pass it to the database. In your example you padded FullMedlID with leading zeros, but then use Var1 (nice, descriptive variable name, BTW ;) ) for the SQL statement:

Code:

' Before we construct and pass the SQL statement, modify
' the value of Var1 so it is padded with zeros.

' Var1 comes from Request.QueryString("FullMedlID")
' Now padd it with zeros
Var1 = Right("00000" & Var1, 5)

' And then insert Var1 together with the other variables in the database.

'SQL Statement
SQL = "INSERT INTO Box_ID (BoxID, FirstName, LastName, Adress, PostNr, PostAdress, EmailAdress, PassWord, TelNr, Fnr, MFID)"
SQL = SQL & "VALUES ('" & Var1 & "'"
SQL = SQL & " ,'" & Var2 & "'"
SQL = SQL & " ,'" & Var3 & "'"
SQL = SQL & " ,'" & Var4 & "'"
SQL = SQL & " ,'" & Var5 & "'"
SQL = SQL & " ,'" & Var6 & "'"
SQL = SQL & " ,'" & Var7 & "'"
SQL = SQL & " ,'" & Var8 & "'"
SQL = SQL & " ,'" & Var9 & "'"
SQL = SQL & " ,'" & Var10 & "'"
SQL = SQL & " ,'" & Var11 & "')"

' UtfÃ¶r sql statement
Set RS = Cn.Execute(SQL)

If all works out as expected, the database column BoxID should now contain 00035.

HtH

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Rolleman · August 28th, 2003, 09:25 AM

I am not so stupid after all... god I love trial and error ;) Got this sweet baby to work after all.
Thanks for all your help.

<%
'FÃ¥ in "Form" variabler
Var1=request.querystring("BoxID")
Var1 = Right("00000" & Var1, 5)
Var2=request.querystring("Fornamn")
Var3=request.querystring("Efternamn")
Var4=request.querystring("Adress")
Var5=request.querystring("Pnr")
Var6=request.querystring("Postadress")
Var7=request.querystring("Email")
Var8=request.QueryString("PassWord")
Var9=request.QueryString("Telefon")
Var10=request.QueryString("Fnr")
Var11=request.QueryString("MFID")
Var11 = Right("00000" & Var11, 5)

Set Cn=Server.CreateObject("ADODB.Connection")
Cn.Open = "DSN=Flamer"

'SQL Statement
SQL = "INSERT INTO Box_ID (BoxID, FirstName, LastName, Adress, PostNr, PostAdress, EmailAdress, PassWord, TelNr, Fnr, MFID)"
SQL = SQL & "VALUES('" & Var1 & "'" a s o

Rolleman · September 9th, 2003, 02:30 AM

Funny thing is... since I am using Access I don't have to use code to do this. I just set a mask and now it works great.