om vi säger att jag läser in en text-databas där en rad ser ut så här:
AnvändarNamn;Riktigtnamn;pass;osv
och innan jag skriver en ny rad i batabasen så vill jag kolla om användarnamnet redan finns? kan man läsa in till ";" och sedan gemföra det med det namn som försöker läggas till?
så här har jag skrivit koden hittils! några tipps?
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg", 8 )
If request("Anamn") = "" then
'händelse1
response.write("Error fyll i uppgifterna")
Else
If request("Rnamn") = "" then
'händelse1
response.write("Error fyll i uppgifterna")
Else
If request("L2") = "" then
'händelse1
response.write("Error fyll i uppgifterna")
Else
If request("L1") = request("L2") then
objFile.writeline request("Anamn") & ";" & request("Rnamn") & ";" & request("Doman") & ";"& "50" & ";" & "1" & ";" & request("L2") & ";;;0;;0;0;0;;0;0;0;0;;0;0"
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
Response.Write("<center>DU e nu typ RegiZtRerad i typ daTabAzen, dIn koNtO KoMmer att bLi ActiVEJAt om ca 5 mIn.... lykka typ tE å hOpPaz att du tjiVz! *skrattar*</venter>" )
Else
Response.Write("Du uppgav inte samma lösenord 2 gånger")
End if
End if
End if
End if
%>
För det första, varför har du två Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ?
<%
Dim objFSO, objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg")
While Not objFile.AtEndOfLine
If request("Anamn") = Split(objFile.ReadLine, ";")(0) Then
Fanns = True
End If
Wend
objFile.Close
If Not Fanns Then
set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg")
If request("Anamn") = "" Or request("Rnamn") = "" Or request("L2") = "" then
'händelse1
response.write("Error fyll i uppgifterna")
End If
If request("L1") = request("L2") then
objFile.writeline request("Anamn") & ";" & request("Rnamn") & ";" & request("Doman") & ";"& "50" & ";" & "1" & ";" & request("L2") & ";;;0;;0;0;0;;0;0;0;0;;0;0"
Response.Write("<center>DU e nu typ RegiZtRerad i typ daTabAzen, dIn koNtO KoMmer att bLi ActiVEJAt om ca 5 mIn.... lykka typ tE å hOpPaz att du tjiVz! *skrattar*</center>" )
Else
Response.Write("Du uppgav inte samma lösenord 2 gånger")
End if
objFile.Close
Else
Response.Write("Användaren finns redan")
End If
Set objFile = Nothing
Set objFso = Nothing
%>
<%
Dim objFSO, objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg")
While Not objFile.AtEndOfLine
If request("Anamn") = Split(objFile.ReadLine, ";")(0) Then
Fanns = True
End If
Wend
If Not Fanns Then
If request("Anamn") = "" Or request("Rnamn") = "" Or request("L2") = "" then
'händelse1
response.write("Error fyll i uppgifterna")
End If
If request("L1") = request("L2") then
objFile.writeline request("Anamn") & ";" & request("Rnamn") & ";" & request("Doman") & ";"& "50" & ";" & "1" & ";" & request("L2") & ";;;0;;0;0;0;;0;0;0;0;;0;0"
Response.Write("<center>DU e nu typ RegiZtRerad i typ daTabAzen, dIn koNtO KoMmer att bLi ActiVEJAt om ca 5 mIn.... lykka typ tE å hOpPaz att du tjiVz! *skrattar*</center>" )
Else
Response.Write("Du uppgav inte samma lösenord 2 gånger")
End if
Else
Response.Write("Användaren finns redan")
End If
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
%>
