%
'Response.Buffer = true
'on error resume next
dim Connect,objConn,RS
dim intAnv 'Användar-id
dim strLosen 'Lösenord
intAnv = Session("anv")
strLosen = Session("losen")
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'Connect = "dsn=ffitness;UID=ffitness;PWD=fitness699;"
'Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.Open Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={SQL Server};SERVER=195.178.185.57;DATABASE=fitness;UID=fitness44;PWD=fitness699;"
%><%
If request.Form >"0" Then
str1 = Request.Form("1")
str2 = Request.Form("2")
str3 = Request.Form("3")
str4 = Request.Form("4")
strSql = "INSERT INTO vote (ett, tva, tre, fyra) " &_
"VALUES ('" & str1 & "', '" & str2 & "', '" & str3 & "', '" & str4 & "');"
objConn.Execute(strSql)
End If
%>
Välkommen till Sveriges största fitnessstidning på Internet - Fitness-Magazine.com!
| |
|
|
|
|
|
| |
|
|
Fitness-Magazine.com
- Sveriges största fitnesstidning på Internet!
|
|
|
Tipsa
din vän om den här sidan! |
|

Skriv ut sidan.

|
|
|