Update virker ikke :(
<!--#include file="protect.inc"--><!--#include file="dataconn.inc"-->
<%
strGame = Session("ID")
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM clans WHERE id LIKE '%" & StrGame & "%'"
rs.Open strSQL, myConn
strclanname = Request.Form("clanname")
strtag = Request.Form("tag")
strgame = Request.Form("game")
strgame1 = Request.Form("game1")
strgame2 = Request.Form("game2")
strgame3 = Request.Form("game3")
strcountry = Request.Form("country")
strhomepage = Request.Form("homepage")
strnick = Request.Form("nick")
strclanleader = Request.Form("clanleader")
stremail = Request.Form("email")
strserver = Request.Form("server")
strchan = Request.Form("chan")
strusername = Request.Form("username")
strpassword = Request.Form("password")
strSQL = "UPDATE clans SET "
strSQL = strSQL & "clanname='" & strclanname & "',"
strSQL = strSQL & "tag='" & strtag & "',"
strSQL = strSQL & "game='" & strgame & "',"
strSQL = strSQL & "game1='" & strgame1 & "',"
strSQL = strSQL & "game2='" & strgame2 & "',"
strSQL = strSQL & "game3='" & strgame3 & "',"
strSQL = strSQL & "country='" & strcountry & "',"
strSQL = strSQL & "homepage='" & strhomepage & "',"
strSQL = strSQL & "nick='" & strnick & "',"
strSQL = strSQL & "clanleader='" & strclanleader & "',"
strSQL = strSQL & "email='" & stremail & "',"
strSQL = strSQL & "server='" & strserver & "',"
strSQL = strSQL & "chan='" & chan & "',"
strSQL = strSQL & "username='" & strusername & "',"
strSQL = strSQL & "password='" & strpassword & "',"
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.Redirect "edit-clan.asp?msg=done"
End If
%>
den give ikke nogle fejl.. den gider bare ikke update :(
/me er ny til MySQL :)
