ASP og Mysql fejl

Hvordan ser din strsql ud ?

Ups, det var ikke så godt med det password. Det må du hellere få ændret

damn ja det må jeg

Koden ser sådan ud

<% If Request.QueryString("mode") = "gem" Then

set conn=CreateObject("ADODB.Connection")
conn.Open "Driver={mySQL}; Server=mysql01.cliche.dk; Port=3306; Option=16386; Stmt=; Database=bjarkes_dk; uid=bjarkes_dk; pwd=saut63cv;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn

'formatdatoMySQL
dtmdato    = now()
response.write dtmdato
datArr2 = split(dtmdato," ")
datArr = split(datArr2(0) ,"-")

dtmdatoyear = Datepart("yyyy",datArr2(0))
dtmdatomonth= Datepart("m",datArr2(0))
dtmdatoday  = Datepart("d",datArr2(0))
dtmdatotime = Datepart("h",datArr2(1))
dtmdatominu = Datepart("n",datArr2(1))
dtmdatoseku = Datepart("s",datArr2(1))

FormatDatoMySQL = dtmdatoyear & "-" & dtmdatomonth & "-" & dtmdatoday & " " & dtmdatotime & ":" & dtmdatominu & ":" & dtmdatoseku

strsql="INSERT INTO brugerinfo ("


strSQL = strSQL & "Navn, "
strSQL = strSQL & "HP, "
strSQL = strSQL & "brugernavn, "
strSQL = strSQL & "kodeord, "
strSQL = strSQL & "mail, "
strSQL = strSQL & "msn, "
strSQL = strSQL & "Oprattelses_tid, "
strSQL = strSQL & "Beskrivelse, "
strSQL = strSQL & "icq) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("Navn") & "', "
strSQL = strSQL & "'" & request.form("HP") & "', "
strSQL = strSQL & "'" & request.form("brugernavn") & "', "
strSQL = strSQL & "'" & request.form("kodeord") & "', "
strSQL = strSQL & "'" & request.form("mail") & "', "
strSQL = strSQL & "'" & request.form("msn") & "', "
strSQL = strSQL & "'" & FormatDatoMySQL & "',"
strSQL = strSQL & "'" & request.form("Beskrivelse") & "', "
strSQL = strSQL & "'" & request.form("icq") & "')"

Conn.Execute(strSQL)

Response.Redirect("oprat.asp?mode=gem")

End if
%>

Jamen har strsql overhovedet en værdi der hvor du bruger den
første gang?

??

den virkede for nogen timer siden
men så kom jeg til at uploade den igen og så virkede den ikke, men jeg havde slet ikke pillet ved den :s

Prøv at ændre
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
til
'Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open strsql, conn

så opreter den baere 729 felter i min DB, har prøvet det nemlig

arrh noget at stoppe den så kun 184

hedder filen oprat.asp ? Så du redirecter til dig selv?
Så er der vist noget mere fundamentalt galt. Er det hele koden
i filen. Hvor bliver den kaldt fra? Hvad skal den lave?

tror nu ikke det hjælper men i får lige hele koden:


<html>
<head>
<title>Opret bruger</title>
<style>
label{width:150px;}
</style>
</head>
<body bgcolor="black" text="Orangered">
<%
If Request.QueryString("mode") = "intast" Then %>

<form action="oprat.asp?mode=gem" method="post" name="addlink" id="addlink" onsubmit="validering();return false;">
<label for="Navn">Navn:</label><input type="text" name="Navn"><br>
<label for="HP">Hjemmeside:</label><input type="text" name="HP"><br>
<label for="brugernavn">Ønsket brugernavn:</label><input type="text" name="brugernavn"><br>
<label for="kodeord">Ønsket kodeord:</label><input type="text" name="kodeord"><br>
<label for="mail">Mail:</label><input type="text" name="mail"><br>
<label for="msn">MSN:</label><input type="text" name="msn"><br>
<label for="icq">Icq:</label><input type="text" value="0" name="icq"><br>
<label for="Beskrivelse">Beskrivelse:</label><textarea name="Beskrivelse" rows="3" cols="30"></textarea>
<br>
<br>
<input type="submit" name="Submit" value="Opret">
</form>

<% end if
If Request.QueryString("mode") = "gem" Then

set conn=CreateObject("ADODB.Connection")
conn.Open "Driver={mySQL}; Server=mysql01.cliche.dk; Port=3306; Option=16386; Stmt=; Database=bjarkes_dk; uid=bjarkes_dk; pwd=saut63cv;"
'Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open strsql, conn

'formatdatoMySQL
dtmdato    = now()
response.write dtmdato
datArr2 = split(dtmdato," ")
datArr = split(datArr2(0) ,"-")

dtmdatoyear = Datepart("yyyy",datArr2(0))
dtmdatomonth= Datepart("m",datArr2(0))
dtmdatoday  = Datepart("d",datArr2(0))
dtmdatotime = Datepart("h",datArr2(1))
dtmdatominu = Datepart("n",datArr2(1))
dtmdatoseku = Datepart("s",datArr2(1))

FormatDatoMySQL = dtmdatoyear & "-" & dtmdatomonth & "-" & dtmdatoday & " " & dtmdatotime & ":" & dtmdatominu & ":" & dtmdatoseku

strsql="INSERT INTO brugerinfo ("


strSQL = strSQL & "Navn, "
strSQL = strSQL & "HP, "
strSQL = strSQL & "brugernavn, "
strSQL = strSQL & "kodeord, "
strSQL = strSQL & "mail, "
strSQL = strSQL & "msn, "
strSQL = strSQL & "Oprattelses_tid, "
strSQL = strSQL & "Beskrivelse, "
strSQL = strSQL & "icq) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("Navn") & "', "
strSQL = strSQL & "'" & request.form("HP") & "', "
strSQL = strSQL & "'" & request.form("brugernavn") & "', "
strSQL = strSQL & "'" & request.form("kodeord") & "', "
strSQL = strSQL & "'" & request.form("mail") & "', "
strSQL = strSQL & "'" & request.form("msn") & "', "
strSQL = strSQL & "'" & FormatDatoMySQL & "',"
strSQL = strSQL & "'" & request.form("Beskrivelse") & "', "
strSQL = strSQL & "'" & request.form("icq") & "')"

Conn.Execute(strSQL)

Response.Redirect("oprat.asp?mode=gem")

End if
%>

</body>
</html>

Hvad med at beholde de to linier med ' foran som jeg foreslog,
og så erstatte
Response.Redirect("oprat.asp?mode=gem")
med
Response.Redirect("oprat.asp?mode=intast")

dow
jeg tror du har ret prøver lige ;)

nå så skal jeg bare ha et svar fra dig ;)...Tusidne tak for hjælpen, dum fejl men okay

:)

Jeg ved ikke helt, da jeg ikke sidder ved min database PC,men prøv denne taget ud fra hovedet

set conn=CreateObject("ADODB.Connection")
db= "Driver={mySQL}; Server=mysql01.cliche.dk; Port=3306; Option=16386; Stmt=; Database=bjarkes_dk; uid=bjarkes_dk; pwd=saut63cv;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, db

btw spar alle de strSQL = strSQL &
ved at sætte &_ i enden af de efterfølgende linier

Henrik

jammen det virker