Código PHP:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim i As Integer = 0
Dim cn As New OleDb.OleDbConnection()
Dim sql As New OleDb.OleDbCommand()
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Inetpub\wwwroot\Encuestas\encuestas.mdb"
cn.ConnectionString = str
cn.Open()
While i < repeater1.Items.Count()
Try
If CType(repeater1.Items(0).Controls(1), RadioButtonList).Items.Count = 5 Then
'insert de tipo 1Tipo 1
Dim res As String = CType(repeater1.Items(0).Controls(1), RadioButtonList).SelectedItem.Value
Dim idpregunta As Integer = CType(repeater1.Items(0).Controls(3), TextBox).Text
sql.Connection = cn
sql.CommandText = "insert into respuestas(pre_id, res, id_cliente) values(" & CType(repeater1.Items(0).Controls(3), TextBox).Text & "," & res & ", " & Session("id_cliente") & ");"
sql.ExecuteNonQuery()
'aqui el insert
ElseIf CType(repeater1.Items(0).Controls(1), RadioButtonList).Items.Count = 2 Then
de tipo 2
Dim res As String = CType(repeater1.Items(0).Controls(1), RadioButtonList).SelectedItem.Value
Dim idpregunta As Integer = CType(repeater1.Items(0).Controls(3), TextBox).Text
sql.Connection = cn
sql.CommandText = "insert into respuestas(pre_id, res, id_cliente) values(" & CType(repeater1.Items(0).Controls(3), TextBox).Text & "," & res & ", " & Session("id_cliente") & ");"
sql.ExecuteNonQuery()
End If
Catch
End Try
i += 1
End While
End Sub
End Class