Min submit knap virker ikke
Jeg har lige downloaded den nyeste version af internet explorer (6.0) og så holdte min submit knapper op med at virke. Her er lidt af min kode:If Request.Form("WhatWasChosen") = "InsertDataChosen" Then
Set objConn = Server.Createobject("ADODB.Connection")
strConnString = "Provider=SQLOLEDB;" & _
"Persist Security Info=FALSE;" & _
"User ID=sa;" & _
"Password=pb16950;" & _
"Initial Catalog=WorkStatistics;" & _
"Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\" & _
"DATA\WorkStatistics_Data.mdf;"
objConn.Open strConnString
strSQL = "SELECT Projekt_Navn_VC FROM WorkProjects_T " & _
"ORDER BY Projekt_Navn_VC"
Set objRS = Server.Createobject("ADODB.Recordset")
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
Response.Write "<FORM NAME='AddProject' ACTION='index.asp' METHOD='POST'>"
Response.Write "<B>Tilføj Projekt: </B> "
Response.Write "<INPUT TYPE='Text' NAME='NewProject'>"
Response.Write "<INPUT TYPE='hidden' NAME='WhatWasChosen' VALUE='InsertDataChosen'>"
Response.Write " <INPUT TYPE='submit' VALUE='Behandel'></FORM>"
Response.Write "<FORM NAME='InsertData' ACITON='index.asp' METHOD='POST'>"
Response.Write "<B>Projekt Navn: </B> "
Response.Write "<SELECT NAME='ProjektNavn'>"
qsStrProjectName = Request.Form("NewProject")
If qsStrProjectName <> "" Then
Response.Write "<OPTION>" & qsStrProjectName & "</OPTION>"
End If
lastProjectName = ""
Do While Not objRS.EOF
strProjectName = objRS("Projekt_Navn_VC")
If strProjectName <> lastProjectName Then
Response.Write "<OPTION VALUE='" & strProjectName & "'>" & strProjectName & "</OPTION>"
lastProjectName = strProjectName
End If
objRS.MoveNext
Loop
Response.Write "</SELECT><BR>"
Response.Write "<B>Dato: </B> "
Response.Write " "
Response.Write "<INPUT TYPE='Text' Value='" & Year(Date) & "-"
If Month(Date) <= 9 Then
Response.Write "0" & Month(Date)
Else
Response.Write Month(Date)
End If
Response.Write "-"
If Day(Date) <= 9 Then
Response.Write "0" & Day(Date)
Else
Response.Write Day(Date)
End If
Response.Write "' NAME='Date'><BR>"
Response.Write "<B>Arbejdstimer: </B> "
Response.Write "<INPUT TYPE='Text' NAME='WorkHours'><BR>"
Response.Write "<INPUT TYPE='checkbox' NAME='ReadProject'> "
Response.Write "<B>Læse Projekt</B><BR>"
Response.Write "<B>Læst fra side: </B> "
Response.Write " <INPUT NAME='ReadFrom' TYPE='Text'><BR>"
Response.Write "<B>Læst til side: </B> "
Response.Write " <INPUT NAME='ReadTo' TYPE='Text'><BR>"
Response.Write "<B>Antal sider i alt: </B> "
Response.Write "<INPUT TYPE='Text' NAME='PagesTotal'>"
Response.Write "<INPUT TYPE='hidden' NAME='WhatWasChosenX' VALUE='InsertData'>"
Response.Write " <INPUT TYPE='submit' VALUE='Behandel'></FORM>"
objRS.close
Set objRS = Nothing
objConn.close
Set objConn = Nothing
End If
Hvad er der galt?
